home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1989 April
/
64er_Magazin_89-04_1989_Markt__Technik_de.d64
/
pythagoras v1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
161b
|
5 lines
10 a=5 :n=1:def fna(x)=x-int(x/2)*2:printn;3;4;5
20 m=int(sqr(2)*a)-a:m=(fna(m)<>fna(a))+m
30 forx=mto1step-2:c=(a*a-x*x)/2/x:ifc=int(c)thenn=n+1:printn;a;c;c+x
40 nextx:a=a+1:goto20